(Fsleep_for): Accept sub-second intervals.

diff --git a/src/dispnew.c b/src/dispnew.c
index ac0d30cef440a51f6eff8f4f8d4c79d7f51bf7bb..201f4a579e79aa45a7396ce0fcaa6de34c124a07 100644 (file)
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2308,7 +2308,7 @@ Emacs was built without floating point support.\n\
   else
     sec += usec / 1000000, usec %= 1000000;
 
-  if (sec <= 0)
+  if (sec < 0 || (sec == 0 && usec == 0))
     return Qnil;
 
   {